home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / Exegesis Tools.cpt / Exegesis Tools / card_2974.txt < prev    next >
Text File  |  1990-12-13  |  9KB  |  422 lines
  1. -- card: 2974 from stack: in
  2. -- bmap block id: 4945
  3. -- flags: 4000
  4. -- background id: 2769
  5. -- name: Exegesis Tools
  6. ----- HyperTalk script -----
  7. on waitasec
  8.   play "boing" f5q
  9.   wait until the sound is "done"
  10. end waitasec
  11.  
  12. on closeCard
  13.   hide card field "owner"
  14. end closeCard
  15.  
  16. on openCard
  17.   freeMemory
  18. end openCard
  19.  
  20.  
  21. -- part 10 (button)
  22. -- low flags: 00
  23. -- high flags: 0000
  24. -- rect: left=230 top=134 right=171 bottom=283
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: Notes
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   go to card id 10234
  36. end mouseUp
  37.  
  38.  
  39.  
  40.  
  41. -- part 9 (button)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=302 top=134 right=170 bottom=391
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Bible Compare
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   visual effect wipe left
  56.   go to card id 3829
  57. end mouseUp
  58.  
  59.  
  60.  
  61.  
  62. -- part 1 (field)
  63. -- low flags: 81
  64. -- high flags: 0004
  65. -- rect: left=176 top=117 right=199 bottom=373
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: about
  74.  
  75.  
  76. -- part 2 (button)
  77. -- low flags: 80
  78. -- high flags: A003
  79. -- rect: left=186 top=167 right=186 bottom=233
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: More
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   flash 5
  91.   visual effect checkerboard slow
  92.   show card field info
  93.   show card button Thanks
  94.   show card field "freemem"
  95.   --This shows the amount of free Memory available in the application
  96.   --heap.
  97.   put the heapSpace div 1024 into word 4 of card field "freeMem"
  98.   hide card field about
  99.   hide card button more
  100.   hide card button done
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 11 (button)
  106. -- low flags: 00
  107. -- high flags: 0000
  108. -- rect: left=205 top=215 right=291 bottom=287
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Questions
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   visual effect wipe left
  120.   go to card id 10969
  121. end mouseUp
  122.  
  123.  
  124.  
  125.  
  126. -- part 18 (button)
  127. -- low flags: 00
  128. -- high flags: A004
  129. -- rect: left=63 top=293 right=340 bottom=117
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 21060 / 21060
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: ICONs Help
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   visual effect wipe right fast to gray
  141.   visual effect wipe left fast
  142.   go to card id 9078
  143. end mouseUp
  144.  
  145.  
  146.  
  147.  
  148. -- part 3 (button)
  149. -- low flags: 80
  150. -- high flags: A003
  151. -- rect: left=314 top=169 right=188 bottom=361
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Done
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   hide button Done
  163.   hide button More
  164.   hide card field about
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 20 (field)
  170. -- low flags: 81
  171. -- high flags: 2004
  172. -- rect: left=114 top=212 right=260 bottom=286
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 3
  177. -- text size: 9
  178. -- style flags: 256
  179. -- line height: 12
  180. -- part name: About Mem
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   set visible of card field "About Mem" to not the visible of card field "About Mem"
  184. end mouseUp
  185.  
  186.  
  187. -- part 14 (field)
  188. -- low flags: 81
  189. -- high flags: 0004
  190. -- rect: left=143 top=315 right=331 bottom=369
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 0
  194. -- font id: 4
  195. -- text size: 9
  196. -- style flags: 0
  197. -- line height: 12
  198. -- part name: owner
  199.  
  200.  
  201. -- part 4 (field)
  202. -- low flags: 81
  203. -- high flags: 2004
  204. -- rect: left=113 top=22 right=342 bottom=408
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 0
  208. -- font id: 3
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: info
  213.  
  214.  
  215. -- part 19 (field)
  216. -- low flags: 81
  217. -- high flags: 2000
  218. -- rect: left=172 top=260 right=308 bottom=340
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 3
  223. -- text size: 9
  224. -- style flags: 0
  225. -- line height: 12
  226. -- part name: freeMem
  227.  
  228.  
  229. -- part 5 (button)
  230. -- low flags: 80
  231. -- high flags: 8003
  232. -- rect: left=191 top=299 right=325 bottom=323
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: Thanks
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   set the highlight of card button "Thanks" to true
  244.   waitasec
  245.   set the highlight of card button "Thanks" to false
  246.   play "boing" c5e
  247.   set the highlight of card button "Thanks" to true
  248.   waitasec
  249.   set the highlight of card button "Thanks" to false
  250.   play "boing" c5e
  251.   set the highlight of card button "Thanks" to true
  252.   play "Boing" "f5q f5s f5t f5t f5t f5t"
  253.   wait for 60 ticks
  254.   set the highlight of card button "Thanks" to false
  255.   hide card button Thanks
  256.   hide card field freemem
  257.   hide card field info
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 7 (button)
  263. -- low flags: 00
  264. -- high flags: 2000
  265. -- rect: left=440 top=24 right=53 bottom=473
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 26635 / 26635
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: How to…
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   push card
  277.   go to card id 8834
  278. end mouseUp
  279.  
  280.  
  281.  
  282.  
  283. -- part 12 (button)
  284. -- low flags: 00
  285. -- high flags: 2004
  286. -- rect: left=472 top=309 right=340 bottom=508
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 1007 / 1007
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: ImageWriter
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   answer "Print the Stack ‚ÄòTools for Exegesis‚Äô?" with "Cancel" or "Print Stack"
  298.   if it is "Cancel" then
  299.     exit mouseUp
  300.   end if
  301.   if it is "Print Stack" then
  302.     doMenu "Print Stack..."
  303.   end if
  304. end mouseUp
  305.  
  306.  
  307.  
  308. -- part 13 (button)
  309. -- low flags: 00
  310. -- high flags: 2004
  311. -- rect: left=428 top=308 right=342 bottom=468
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 21982 / 21982
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: Compact Stack
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   if the freesize of this stack >0 then
  323.     put the userLevel into yourLevel --save the current userlevel
  324.     if the userLevel < 4 then set userLevel to 4 -- "Authoring"
  325.     if the userLevel < 4 then exit mouseUp
  326.     domenu "compact stack"
  327.     set userLevel to yourLevel --reset the userlevel how we found it
  328.   end if
  329. end mouseUp
  330.  
  331.  
  332. -- part 16 (button)
  333. -- low flags: 00
  334. -- high flags: 2004
  335. -- rect: left=4 top=293 right=336 bottom=53
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 9543 / 9543
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: Arrow Keys Text
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   set textArrows to true
  347.   show card button "Arrow Keys Card"
  348.   hide card button "Arrow Keys Text"
  349. end mouseUp
  350.  
  351.  
  352.  
  353. -- part 17 (button)
  354. -- low flags: 80
  355. -- high flags: 2004
  356. -- rect: left=4 top=293 right=336 bottom=53
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 2518 / 2518
  359. -- text alignment: 1
  360. -- font id: 0
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: Arrow Keys Card
  365. ----- HyperTalk script -----
  366. on mouseUp
  367.   set textArrows to false
  368.   show card button "Arrow Keys Text"
  369.   hide card button "Arrow Keys Card"
  370. end mouseUp
  371.  
  372.  
  373.  
  374. -- part contents for card part 4
  375. ----- text -----
  376.                         Version 3.0
  377.      This Stack is provided FREE to all who actively search for a greater understanding of scripture through Exegesis.  Please send any comments to:
  378.  
  379.                      Mark A. Spaulding 
  380.                    Yale Divinity School
  381.               409 Prospect St. Box 297
  382.                   New Haven, CT 06511
  383.                                  or
  384.                     GEnie, M-SPAULDING
  385.  
  386. Artwork by: Kristee Kreitman & Marge Boots.
  387.  
  388.  
  389. -- part contents for card part 1
  390. ----- text -----
  391.  
  392.  By Mark A. Spaulding, 1988
  393.  
  394. -- part contents for card part 14
  395. ----- text -----
  396. Tools for Exegesis by Mark Spaulding
  397.  
  398. -- part contents for card part 19
  399. ----- text -----
  400. Available Memory =  383 K
  401.  
  402.  
  403.  
  404.  
  405.  
  406.  
  407.  
  408.  
  409.  
  410.  
  411.  
  412.  
  413.  
  414.  
  415.  
  416.  
  417.  
  418.  
  419. -- part contents for card part 20
  420. ----- text -----
  421. This field shows the amount of space currently available on the application heap.
  422.